open(BUFF,"ls /data1/bsi/BORA_processing/devel/eqtl/OV_expr |");
while($line = <BUFF>)
{
	chomp($line);
	system("mv /data1/bsi/BORA_processing/devel/eqtl/OV_expr/$line/* ..");
}
